home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / GUICtrlCreateProgress.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1013 b   |  39 lines
  1. #include <GUIConstants.au3>
  2.  
  3. GUICreate("My GUI Progressbar",220,100, 100,200)
  4. $progressbar1 = GUICtrlCreateProgress (10,10,200,20)
  5. GUICtrlSetColor(-1,32250); not working with Windows XP Style
  6. $progressbar2 = GUICtrlCreateProgress (10,40,200,20,$PBS_SMOOTH)
  7. $button = GUICtrlCreateButton ("Start",75,70,70,20)
  8. GUISetState ()
  9.  
  10. $wait = 20; wait 20ms for next progressstep
  11. $s = 0; progressbar-saveposition
  12. do
  13. $msg = GUIGetMsg()
  14. If $msg = $button Then
  15.     GUICtrlSetData ($button,"Stop")
  16.     For $i = $s To 100
  17.     If GUICtrlRead($progressbar1) = 50 Then Msgbox(0,"Info","The half is done...", 1)
  18.     $m = GUIGetMsg ()
  19.     
  20.     If $m = -3 Then ExitLoop
  21.     
  22.     If $m = $button Then
  23.       GUICtrlSetData ($button,"Next")
  24.       $s = $i;save the current bar-position to $s
  25.       ExitLoop
  26.     Else
  27.         $s=0
  28.       GUICtrlSetData ($progressbar1,$i)
  29.       GUICtrlSetData ($progressbar2,(100 - $i))
  30.       Sleep($wait)
  31.     EndIf
  32.     Next
  33.     if $i >100 then
  34. ;        $s=0
  35.         GUICtrlSetData ($button,"Start")
  36.     endif
  37. EndIf
  38. until $msg = $GUI_EVENT_CLOSE
  39.